home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / gambler1.zip / GAMBLER.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-04-10  |  4KB  |  209 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     Integer  INTEGER006
  26.     Integer  INTEGER007
  27.     String   STRING001
  28.     String   STRING002
  29.  
  30. ;------------------------------------------------------------------------------
  31.  
  32.     GetUser
  33.     STRING002 = U_Name()
  34.     BOOLEAN001 = 0
  35.     FOpen 1, PPEPath() + PPEName() + ".DAT", 0, 2
  36.     FGet 1, STRING001
  37.     FGet 1, INTEGER003
  38.     FClose 1
  39.     DispFile PPEPath() + PPEName() + ".HDR", 0
  40.     Newlines 2
  41.     PrintLn "@X0F                                 Timeleft: @X0E@TIMELEFT@"
  42.     Newlines 2
  43.     InputStr "                  @X0FHow much time do you want to bet@X0A", INTEGER001, 9, 4, "0123456789", 2048 + -32768
  44.     INTEGER004 = 1 + Random(99)
  45.     INTEGER007 = INTEGER003 + INTEGER001
  46.     DispFile PPEPath() + PPEName() + ".HDR", 0
  47.     PrintLn "@X06┌─────────────────────────────────────────────────────────────────────────────┐@X00"
  48.     PrintLn "│ @X06@POS:79@│"
  49.     PrintLn "│  @X0ENumber of Guesses:  @X0F6     SELECT A NUMBER FROM 1-100      @X0ETime Left:  @X0F@TIMELEFT@ @X06@POS:79@│"
  50.     PrintLn "│ @X06@POS:79@│"
  51.     PrintLn "│       @X0EGuess Number:       @X0EGame Status:                      @X0ETime Bet:   @X06@POS:79@│"
  52.     PrintLn "│ @X06@POS:79@│"
  53.     PrintLn "│       @X0EGuesses Left:       @X0EWhat's Your Guess              @X0EReward Time:   @X06@POS:79@│"
  54.     PrintLn "│ @X06@POS:79@│"
  55.     PrintLn "└─────────────────────────────────────────────────────────────────────────────┘"
  56.     AnsiPos 74, 11
  57.     PrintLn "@X0F" + String(INTEGER007)
  58.     AnsiPos 74, 9
  59.     PrintLn "@X0F" + String(INTEGER001)
  60.     For INTEGER005 = 1 To 6
  61.         AnsiPos 24, 9
  62.         PrintLn "@X0F" + String(INTEGER005)
  63.         AnsiPos 46, 11
  64.         PrintLn "      "
  65.         INTEGER006 = 7 - INTEGER005
  66.         AnsiPos 24, 11
  67.         PrintLn "@X0F" + String(INTEGER006)
  68.         AnsiPos 46, 11
  69.         InputStr "@X0A", INTEGER002, 10, 3, "0123456789", 2048 + -32768
  70.         If (INTEGER002 > INTEGER004) Then
  71.             AnsiPos 43, 9
  72.             PrintLn "@X0CTOO @X8CHIGH      "
  73.         Endif
  74.         If (INTEGER002 < INTEGER004) Then
  75.             AnsiPos 43, 9
  76.             PrintLn "@X0CTOO @X8CLOW       "
  77.         Endif
  78.         If (INTEGER002 == INTEGER004) Goto LABEL001
  79.     Next
  80.     AnsiPos 43, 9
  81.     PrintLn "@X8CLOSER!!!    @X0F"
  82.     Delay 40
  83.     AdjTime -INTEGER001
  84.     DispFile PPEPath() + PPEName() + ".LOS", 1 + 2
  85.     Newline
  86.     PrintLn "@X0F                            You just lost @X8C" + String(INTEGER001) + "@X0F minutes!"
  87.     Goto LABEL002
  88.     :LABEL001
  89.     AnsiPos 43, 9
  90.     PrintLn "@X0FW@X8CINNER!!!    "
  91.     Delay 1
  92.     AnsiPos 43, 9
  93.     PrintLn "W@X0FI@X8CNNER!!!    "
  94.     Delay 1
  95.     AnsiPos 43, 9
  96.     PrintLn "WI@X0FN@X8CNER!!!    "
  97.     Delay 1
  98.     AnsiPos 43, 9
  99.     PrintLn "WIN@X0FN@X8CER!!!    "
  100.     Delay 1
  101.     AnsiPos 43, 9
  102.     PrintLn "WINN@X0FE@X8CR!!!    "
  103.     Delay 1
  104.     AnsiPos 43, 9
  105.     PrintLn "WINNE@X0FR@X8C!!!    "
  106.     Delay 1
  107.     AnsiPos 43, 9
  108.     PrintLn "WINNER@X0F!@X8C!!    "
  109.     Delay 1
  110.     AnsiPos 43, 9
  111.     PrintLn "WINNER!@X0F!@X8C!    "
  112.     Delay 1
  113.     AnsiPos 43, 9
  114.     PrintLn "WINNER!!@X0F!    "
  115.     Delay 1
  116.     AnsiPos 43, 9
  117.     PrintLn "@X8CWINNER!!!    "
  118.     Delay 1
  119.     Delay 30
  120.     BOOLEAN001 = 1
  121.     DispFile PPEPath() + PPEName() + ".WIN", 1 + 2
  122.     Newline
  123.     PrintLn "@X0F                       You have been rewarded @X8C" + String(INTEGER007) + "@X0F minutes!"
  124.     :LABEL002
  125.     FCreate 1, PPEPath() + PPEName() + ".DAT", 1, 0
  126.     If (BOOLEAN001) Then
  127.         FPutLn 1, STRING002
  128.         FPutLn 1, "0"
  129.         INTEGER004 = 0
  130.         AdjTime INTEGER007
  131.     Else
  132.         FPutLn 1, STRING001
  133.         FPutLn 1, INTEGER007
  134.     Endif
  135.     FClose 1
  136.     Newline
  137.     PrintLn "@X0F                        The last winner was @X0E " + STRING001
  138.     Newline
  139.     Wait
  140.     End
  141.  
  142. ;------------------------------------------------------------------------------
  143. ;
  144. ; Usage report (before postprocessing)
  145. ;
  146. ; ■ Statements used :
  147. ;
  148. ;    1       End
  149. ;    1       Wait
  150. ;    8       Goto 
  151. ;    9       Let 
  152. ;    31      PrintLn 
  153. ;    5       If 
  154. ;    4       DispFile 
  155. ;    1       FCreate 
  156. ;    1       FOpen 
  157. ;    2       FClose 
  158. ;    2       FGet 
  159. ;    4       FPutLn 
  160. ;    1       GetUser
  161. ;    2       AdjTime 
  162. ;    2       InputStr 
  163. ;    12      Delay 
  164. ;    4       Newline
  165. ;    2       Newlines 
  166. ;    19      AnsiPos 
  167. ;
  168. ;
  169. ; ■ Functions used :
  170. ;
  171. ;    3       -
  172. ;    28      +
  173. ;    1       -
  174. ;    1       ==
  175. ;    2       <
  176. ;    1       <=
  177. ;    1       >
  178. ;    2       >=
  179. ;    4       !
  180. ;    2       &&
  181. ;    1       ||
  182. ;    1       Random()
  183. ;    1       U_Name()
  184. ;    6       String()
  185. ;    6       PPEPath()
  186. ;    6       PPEName()
  187. ;
  188. ;------------------------------------------------------------------------------
  189. ;
  190. ; Analysis flags : A
  191. ;
  192. ; A - Adjust online time remaining ■ 5
  193. ;     Program modify the amount of online time remaining, this may
  194. ;     be a way to bypass time limits
  195. ;     ■ Search for : ADJTIME
  196. ;
  197. ;------------------------------------------------------------------------------
  198. ;
  199. ; Postprocessing report
  200. ;
  201. ;    1       For/Next
  202. ;    0       While/EndWhile
  203. ;    3       If/Then or If/Then/Else
  204. ;    0       Select Case
  205. ;
  206. ;------------------------------------------------------------------------------
  207. ;                 AEGiS Corp - Break the routines, code against the machines!
  208. ;------------------------------------------------------------------------------
  209.